#INCLUDE "PROTHEUS.CH"

/*
+-------------------------+-------------------------------------------+----------------------+
|Funcao: Ax004            |Ghandy						          		    | Data: 16/09/2013     |
+-------------------------+-------------------------------------------+----------------------+
|Descricao: Cadastro da tabela ZZ9																	         |
+--------------------------------------------------------------------------------------------+
|Uso: Modulo Gestao de Servicos - Cadastro de Solucao do sistema Jupiter Mobile              |
+--------------------------------------------------------------------------------------------+
|                     ATUALIZACOES SOFRIDAS DESDE A CONSTRUCAO INICIAL.                      |
+-------------------------+------------+-----------------------------------------------------+
|Programador              |   Data     |             Motivo da Alteracao                     |
+-------------------------+------------+-----------------------------------------------------+
|                         |   /  /     |                                                     |
+-------------------------+------------+-----------------------------------------------------+
*/

User Function Ax004()
dbSelectArea("ZZ9")
ZZ9->(dbSetOrder(1))
AxCadastro("ZZ9", "Solucoes - Sistema Jupiter Mobile", "u_ZZ9DelOk()", "u_ZZ9ConfO()")
Return(.T.)                        

User Function ZZ9DelOk()
LOCAL aArea := ZZ9->(GetArea())
LOCAL lRet := .T.

AB2->(dbOrderNickName("CLASSI"))
AB2->(dbSeek(xfilial("AB2")+ZZ5->Z5_CODIGO))
lRet := AB2->(Eof())
IF !lRet
	MsgAlert('Existem chamados com esta atividade, a mesma nao pode ser excluida')
ENDIF
RestArea(aArea) 
Return(lRet)

User Function ZZ9ConfOk() 	
//MsgAlert("Clicou botao OK") 
Return .t.      
Return NIL
